(shadow_lookup): Use make_number to pass a number to Fsubstring.

diff --git a/src/ChangeLog b/src/ChangeLog
index 74e6a168043a91d44590d852c7193bf7c587cf92..105a03a2b8cf5e4930977f8d0f652110d4f96995 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-21  Ken Raeburn  <raeburn@mit.edu>
+
+       * keymap.c (shadow_lookup): Use make_number to pass a number to
+       Fsubstring.
+
 2005-11-21  Juri Linkov  <juri@jurta.org>
 
        * puresize.h (BASE_PURESIZE): Increment to 1180000.

diff --git a/src/keymap.c b/src/keymap.c
index f2370225ab81ca8292d3c613badf08e7fe79c0fe..311a70f25e8da134623432f6b4e53bb76efe0e45 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2379,7 +2379,8 @@ shadow_lookup (shadow, key, flag)
       value = Flookup_key (XCAR (tail), key, flag);
       if (NATNUMP (value))
        {
-         value = Flookup_key (XCAR (tail), Fsubstring (key, 0, value), flag);
+         value = Flookup_key (XCAR (tail),
+                              Fsubstring (key, make_number (0), value), flag);
          if (!NILP (value))
            return Qnil;
        }